home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk164 / c64emulator / 64prgs / 64colors (.txt) next >
Commodore BASIC  |  1995-03-19  |  1KB  |  46 lines
  1. 10 REM ********************************
  2. 11 REM * 64COLORS                     *
  3. 12 REM * DEMONSTRATE THE C64'S COLORS *
  4. 13 REM * WRITTEN BY: CLIFF DUGAN      *
  5. 14 REM ********************************
  6. 15 :
  7. 50 A=780:X=781:Y=782:P=783
  8. 99 :
  9. 100 GOSUB500:PRINT"[147]"
  10. 110 GOSUB600
  11. 200 PRINT
  12. 210 PRINT"[144]  0:BLACK                               ";
  13. 220 PRINT"  1:WHITE                               ";
  14. 230 PRINT"  2:RED                                 ";
  15. 240 PRINT"[159]  3:CYAN                                ";
  16. 250 PRINT"[156]  4:PURPLE                              ";
  17. 260 PRINT"  5:GREEN                               ";
  18. 270 PRINT"  6:BLUE                                ";
  19. 280 PRINT"[158]  7:YELLOW                              ";
  20. 290 PRINT"[129]  8:ORANGE                              ";
  21. 300 PRINT"[149]  9:BROWN                               ";
  22. 310 PRINT"[150] 10:LIGHT RED                           ";
  23. 320 PRINT"[151] 11:DARK GREY                           ";
  24. 330 PRINT"[152] 12:MEDIUM GREY                         ";
  25. 340 PRINT"[153] 13:LIGHT GREEN                         ";
  26. 350 PRINT"[154] 14:LIGHT BLUE                          ";
  27. 360 PRINT"[155] 15:LIGHT GREY                          ";
  28. 400 POKE646,TC
  29. 410 POKEX,24:POKEY,5:POKEP,0:SYS65520
  30. 420 PRINT"[146]PRESS RUN/STOP RESTORE TO QUIT";
  31. 430 POKEX,19:POKEY,6:POKEP,0:SYS65520
  32. 440 POKEX,19:SYS59903
  33. 450 INPUT"[146]ENTER BACKGROUND COLOR #";BC
  34. 460 GOSUB500:GOSUB600:GOTO400
  35. 499 END
  36. 500 REM SET BKGRD,BORDER,TEXT COLORS
  37. 505 BC=(BCAND15)
  38. 510 POKE53280,BC:POKE53281,BC
  39. 520 TC=(NOTBC):TC=TCAND15
  40. 530 POKE646,TC
  41. 540 RETURN
  42. 600 REM PRINT TITLE BAR
  43. 610 POKEX,0:POKEY,0:POKEP,0:SYS65520
  44. 620 PRINT"               64COLORS                 ";
  45. 630 RETURN
  46.